home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / stnvjw20.zip / SETV17.BAT < prev    next >
DOS Batch File  |  1992-05-08  |  3KB  |  146 lines
  1. rem    settest.bat
  2. rem    for testing Setenv.Com
  3. rem    setenv version 1.7
  4. rem    environment space
  5. setenv date
  6. set
  7. rem    variable not found
  8. setenv day %%mid/date/1/2/
  9. if errorlevel 8 goto a0
  10. goto error
  11. :a0
  12. setenv date 31-01-92
  13. rem    not a valid argument
  14. setenv day %%mid/date/1a/2/
  15. if errorlevel 7 goto a1
  16. goto error
  17. :a1
  18. rem    unmatched delimiter
  19. setenv day %%mid/date/1/2
  20. if errorlevel 6 goto a2
  21. goto error
  22. :a2
  23. rem    length of variable data
  24. setenv length %%len/date/
  25. if errorlevel 5 goto a3
  26. if errorlevel 3 goto a3
  27. goto error
  28. :a3
  29. rem    answer    8    length=%length%
  30. setenv length
  31. rem    substring of a variable
  32. setenv day %%mid/date/1/2/
  33. if errorlevel 5 goto a4
  34. if errorlevel 3 goto a4
  35. goto error
  36. :a4
  37. rem    answer    31    day=%day%
  38. rem    element of a string of elements
  39. setenv month %%elem/1/-/date/
  40. if errorlevel 5 goto a5
  41. if errorlevel 3 goto a5
  42. goto error
  43. :a5
  44. setenv day
  45. rem    answer    01    month=%month%
  46. rem    locate a string
  47. setenv at %%loc/0/date/-9/
  48. if errorlevel 5 goto a6
  49. if errorlevel 3 goto a6
  50. goto error
  51. :a6
  52. setenv month
  53. rem    answer    6    at=%at%
  54. rem    add number to variable
  55. setenv at %%sum/at/2/
  56. if errorlevel 5 goto a7
  57. goto error
  58. :a7
  59. rem    answer    8    at=%at%
  60. setenv at
  61. rem    reformat date
  62. setenv date2 %%mid/date/4/2/ %%mid/date/1/2/ %%mid/date/7/2/
  63. setenv date3 %%elem/2/-/date//%%elem/1/-/date//%%elem/0/-/date/
  64. rem    answer    '01 31 92'    date2=%date2%
  65. rem    answer    '92/01/31'    date3=%date3%
  66. setenv date2
  67. setenv date3
  68. rem    extract at string
  69. setenv t1 %%loc/0/date/-/
  70. setenv t2 %%sum/t1/1/
  71. setenv t3 %%loc/%t2%/date/-/
  72. setenv t4 %%sum/t3/-%t2%/
  73. setenv t5 %%mid/date/%t2%/%t4%/
  74. rem    answer    01    t5=%t5%
  75. rem    test sum sums
  76. set t1=-11
  77. set t2=11
  78. setenv t3 %%sum/t1/2/
  79. setenv t4 %%sum/t2/2/
  80. setenv t5 %%sum/t1/-2/
  81. setenv t6 %%sum/t2/-2/
  82. rem    answer    -9    t3=%t3%
  83. rem    answer    13    t4=%t4%
  84. rem    answer    -13    t5=%t5%
  85. rem    answer    9    t6=%t6%
  86. :endtest
  87. rem    cleanup
  88. setenv t1
  89. setenv t2
  90. setenv t3
  91. setenv t4
  92. setenv t5
  93. setenv t6
  94. setenv date
  95. rem    End of Test.
  96. goto fini
  97. :error
  98. echo An error occured.
  99. if errorlevel 10 goto full
  100. if errorlevel 9 goto offset
  101. if errorlevel 8 goto not
  102. if errorlevel 7 goto numb
  103. if errorlevel 6 goto del
  104. if errorlevel 5 goto update
  105. if errorlevel 4 goto dos
  106. if errorlevel 3 goto create
  107. if errorlevel 2 goto erase
  108. if errorlevel 1 goto root
  109. if errorlevel 0 goto help
  110. echo no errorlevel status
  111. goto fini
  112. :full
  113. echo environment space is full.
  114. goto fini
  115. :offset
  116. echo offset not valid.
  117. goto fini
  118. :not
  119. echo environment variable not found.
  120. goto fini
  121. :numb
  122. echo not a valid argument.
  123. goto fini
  124. :del
  125. echo unmatched delimiter.
  126. goto fini
  127. :update
  128. echo environment variable updated.
  129. goto fini
  130. :dos
  131. echo don't know about MS-DOS V1.x
  132. goto fini
  133. :create
  134. echo environment variable created.
  135. goto fini
  136. :erase
  137. echo environment variable erased.
  138. goto fini
  139. :root
  140. echo root environment set.
  141. goto fini
  142. :help
  143. echo no command, help issued.
  144. goto fini
  145. :fini
  146.